home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / CUCD / Programming / EasyPLUGINs / examples / corners_demo.e < prev    next >
Encoding:
Text File  |  1998-02-22  |  2.8 KB  |  86 lines
  1.  
  2. /*
  3.  
  4. */
  5.  
  6. OPT PREPROCESS, OSVERSION=37
  7.  
  8. MODULE 'tools/easygui', 'easyplugins/corners',
  9.        'utility', 'utility/tagitem'
  10.  
  11. DEF corner_blank:PTR TO corners_plugin,
  12.     corner_noblank:PTR TO corners_plugin,
  13.     disabled=FALSE
  14.  
  15. PROC main() HANDLE
  16.  
  17.     IF (utilitybase:=OpenLibrary('utility.library', 37))=NIL THEN Raise("utlb")
  18.  
  19.     NEW corner_blank.corners([PLA_Corners_ActiveCorner,   PLV_Corners_CornerTopLeft,
  20.                               TAG_DONE]),
  21.         corner_noblank.corners([PLA_Corners_ActiveCorner, PLV_Corners_CornerLowerRight,
  22.                                 TAG_DONE])
  23.  
  24.     easyguiA('corners_plugin example', [ROWS,
  25.                                             [EQCOLS,
  26.                                                 [ROWS,
  27.                                                     [TEXT, 'Never blank:', NIL, FALSE, 1],
  28.                                                     [BEVELR,
  29.                                                         [PLUGIN, {plugin_used}, corner_noblank]
  30.                                                     ]
  31.                                                 ],
  32.                                                 [ROWS,
  33.                                                     [TEXT, 'Blank immediately:', NIL, FALSE, 1],
  34.                                                     [BEVELR,
  35.                                                         [PLUGIN, {plugin_used}, corner_blank]
  36.                                                     ]
  37.                                                 ]
  38.                                             ],
  39.                                             [SPACEV],
  40.                                             [COLS,
  41.                                                 [CHECK, {toggle_disabled}, '_Disabled?', FALSE, FALSE, -1, "d"],
  42.                                                 [SPACEH],
  43.                                                 [BUTTON, 0, 'Quit']
  44.                                             ]
  45.                                         ])
  46.  
  47. EXCEPT DO
  48.  
  49.     END corner_blank, corner_noblank
  50.  
  51.     IF utilitybase THEN CloseLibrary(utilitybase)
  52.  
  53. ENDPROC
  54.  
  55. PROC toggle_disabled()
  56.  
  57.     IF disabled THEN disabled:=FALSE ELSE disabled:=TRUE
  58.  
  59.     corner_blank.set(PLA_Corners_Disabled, disabled)
  60.     corner_noblank.set(PLA_Corners_Disabled, disabled)
  61.  
  62. ENDPROC
  63.  
  64. PROC plugin_used(gh:PTR TO guihandle, corners:PTR TO corners_plugin)
  65.  
  66.     IF corners=corner_noblank
  67.  
  68.         IF corner_noblank.get(PLA_Corners_ActiveCorner)=corner_blank.get(PLA_Corners_ActiveCorner)
  69.  
  70.             corner_blank.set(PLA_Corners_ActiveCorner, PLV_Corners_CornerNone)
  71.  
  72.         ENDIF
  73.  
  74.     ELSEIF corners=corner_blank
  75.  
  76.         IF corner_blank.get(PLA_Corners_ActiveCorner)=corner_noblank.get(PLA_Corners_ActiveCorner)
  77.  
  78.             corner_noblank.set(PLA_Corners_ActiveCorner, PLV_Corners_CornerNone)
  79.  
  80.         ENDIF
  81.  
  82.     ENDIF
  83.  
  84. ENDPROC
  85.  
  86.